home *** CD-ROM | disk | FTP | other *** search
/ C/C++ Interactive Reference Guide / C-C++ Interactive Reference Guide.iso / c_ref / csource3 / 106_01 / test.mou < prev    next >
Encoding:
Text File  |  1980-07-09  |  384 b   |  12 lines
  1. "This dies due to macro expansion bug in the mouse interpreter!"
  2. "At least I think that is the reason!"
  3. "Square and triangular numbers"
  4. ("!Enter a number "
  5.   n?=n.^
  6.   "s("n.!") = " #s,n.;!
  7.   "   t("n.!") = "#t,n.;!"!"
  8.   )
  9. $s %a1-[#t,%a;#t,%a1-;+@]1@
  10. $t %a1-[#s,%a1-;3%a*1-+2/@]1@
  11. $$
  12.